home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Kick Pascal v2.10 d2.adf / SYSPROG / Grafik1.p < prev    next >
Text File  |  1990-11-01  |  1KB  |  45 lines
  1. Program Grafik1;
  2.  
  3. {$incl "graphics.lib", "intuition/intuition.h" }
  4.  
  5. Var
  6.   Win: ^Window;
  7.   Rp: ^RastPort; { dieser Typ wird in "graphics/rastport.h" definiert }
  8.   err: boolean;
  9.   Msg: Ptr;
  10.   i: integer;
  11.  
  12. Begin
  13.   OpenLib(GfxBase, 'graphics.library', 0);
  14.  
  15.   Win:= Open_Window(0, 0, 640, 200, 1, _CLOSEWINDOW,
  16.         GIMMEZEROZERO+ACTIVATE+WINDOWCLOSE+WINDOWDRAG+WINDOWDEPTH,
  17.         'Grafikdemo', Nil, 640, 200, 640, 200);
  18.   Rp:= Win^.RPort;
  19.  
  20.   Move(Rp, 5, 40);
  21.   SetAPen(Rp, 1);    { Ausgabe: weiß ... }
  22.   SetBPen(Rp, 3);    { ...auf rot }
  23.   SetDrMd(Rp, 1);    { damit Hintergrundfarbe auch ausgegeben wird }
  24.   err:= GfxText(Rp, ' Dies ist eine Grafik-Demo. ######', 28);
  25.  
  26.   SetAPen(Rp, 3);    { rote Linien }
  27.   For i:=0 to 20 Do
  28.     Begin
  29.       Move(Rp, 220+20*i, 5);
  30.       Draw(Rp, 620, 5+9*i)
  31.     End;
  32.  
  33.   For i:=1 to 10 do
  34.     Begin
  35.       SetAPen(Rp, 1 + i mod 3);    { wechselnde Farben }
  36.       RectFill(Rp, 5*i, 75+2*i, 320-25*i, 180-8*i)
  37.     End;
  38.  
  39.   Msg:= Wait_Port(Win^.UserPort);  { aufs Schließen warten }
  40.   Msg:= Get_Msg(Win^.Userport);
  41.   Reply_Msg(Msg);
  42.  
  43.   Close_Window(Win);
  44. End.
  45.